home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / wcl-21.lha / wcl-2.1 / src / main / wcl.lisp < prev   
Lisp/Scheme  |  1992-09-10  |  498b  |  16 lines
  1. ;;; (C) Copyright 1990-1992 by Wade L. Hennessey. All rights reserved.
  2.  
  3. (defun lmain ()
  4.   (setf *root-directory* (or (probe-file #.(compute-root-directory))
  5.                  (find-root-directory)))
  6.   (format t ";;; WCL Development Environment for SPARC running SunOS~%")
  7.   (format t ";;; Common Lisp ~A library built at ~A~%"
  8.       *cl-version* *cl-build-date*)
  9.   (format t ";;; Compiler ~A library built at ~A~%"
  10.       *compiler-version* *compiler-build-date*)
  11.   (print-copyright)
  12.   (load-init-file)
  13.   (repl))
  14.  
  15.  
  16.